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: htm I> 

<form id = "get_card_info" method = "post" action^ "http://pavm ent.asp "> 

<select name = "card_type" onClick= "talk(g„card_types)"> 

<option value= "aniex"> American Express</option> 
< option value= "visa"> Visa < /option > 
< option value= "ms"> MasterCard < /option > 
</select> 

<reco ld = "g_card_types"onReco ="handie()" > 
<gramnaar src = "./gram #card_types" /> 

</reco > 

<input type="text'' nam e = "card_num " width = "30" 
onClick="tailc(Q_card_num)" /> 
<reco id = " g„card_num " onReco = "handle () " > 

< grammar src = " -/gram # digits /> 

</reco > 

<input type= "text" nam e = "expiry.date" 

onClick="talk(g_expiry_date)" /> 
<reco id= "g_expiry_date " > 

< grammar src =" ./gram #dates " 

</reco > 

<input type="submit" value= "Submit" onCllck= "verify ()" /> 

< /form > 

<scrlpt><![CDATA[ 

function talk(gobj) { 
gobj .activate ( ) ; 

} 

function handle {) { 

if {get_card_inf o . card_num != null) { 

if (get_card_info . card_type . value =^ "amex") 
if (get_card_info . card_num. length != 15) 
alert ("amex should have 15 digits"); 
} else 

if (get_card_info . card_num. length != 16) 
alert ("visa and master should have 16 digits"); 



-280 



— 282 
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} 



} 



verifyO { 
flag = window. 



function 
var 
info?") ; 

if (flag) { 

get_card_inf o . submit ( ) 



confirm( "submit the credit card 



} 



]]> 
</script> 
</html> 
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< body > 

< form id =" get_card_info " method ="post" action ~" http://payment.asp " 
onActivate welcom() "> 

< prompt Id =" p.welcome "> We now need your credit card </ prompt > 

< prompt id =" p.mumble "> I didn't understand you </ prompt > 

< prompt id p „card_type " bargein = " true "> W hat credit card would you 
use? </ prompt > 

< prompt id =" p_card„num " bargein ="true"> Please say the number" </ prompt > 

< prompt id P_expiry„date " bargein ="true"> W hat is the expiration 
date? </ prompt > 

'< prompt id p_content "> 

I have your < value select =" card_type " /> < value select = " card_num " /> 
with expiration date 
< value select expiry.date " /> 
</ prom pt > 

< prompt id =" p_confirm "> Is this correct? </prompt> 

< reco id=" g_card_types " onNoReco ^" mumble(this, 2} "> 
onReco =" _handle(this, card_type) " /> 

< grammar src-" ./gram#card_types " 

</reco > 

< reco id=" g_card_num " onNoReco m um ble(thi5, 1) "> 
onReco _handle(thls, card.num) " /> 

< qr^r(\rc\d>T src = " ./gram #digits " /> 

</reco > 

< reco id = " g_expiry_date " onNoReco =" mumble(thts, 1) > 

audio = " rao " /> 



confirmed(this) " /> 



onReco =" _handle(this, expiry.date) 

< grammar src=" ./gram#dates " /> 

</reco > 

< reco id=" confirmation " onReco 

< grammar src = " ./gram#yesno " /> 

</reco > 

< select name =" card_type "> 

< option value ^"amex*'> American Express </ option > 

< option value = " visa "> Visa </ option > 

< option value ="ms"> MasterCard </ option > 
</ select > 

< tnput type =" text" name =" card^num " w idth = *' 30 " /> 

< Input type="text" name =" expiry_ date " /> 

< input ty pe = " subm it " value ==" Submit " /> 

</ form > 

< script ><<[CDATA[ 

function welcome { ) { 
p_w6lcome . active ( ) ; 
repeat ~ 0; 
checkFilled () ; 



} 



function muinble (gob j , maxprompts) { 

gob j . deactivate ( ) ; 

p_mumble . active ( ) ; 
checkFil led() ; 
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function .handle O { 
handleO; 
checkFilledO; 

} 

function checkFilledO { 

if (card^type. value { 
p«card„type . active () ; 
g_card„types . acti vate () ; retu rn ; 

} 

if (card„num« value { 

p_card.num.activeO; g„card_num.acti vate(); return; 

if Cexpiry.date. value ««*'"){ 

p.expiry.data.activeQ; g«expi ry.date* acti vate Q ; return; 

p^content.activateQ ; 
p^conf i rm . acti vate C) ; 
conf i rmati on . acti vate C) ; 

} 

funcxAon confirmed (gob j) { 

if (gob j.recogRes. text — "yes") 
get_card_i nfo. submit Q ; 

// 

user codes start here 
function handleQ { 



if (get«card_info.card_type "amex") { 

if Cget_card_info.card_num. length !« Isp { 

prompt, speak ("amex should nave 15 digits"); 
' get_cardli nf o . card^num 



} else 

if Cget„card_info.card_num. length !== 16) { 

prompt. speak C*visa and master should have 16 digits"); 
get:„card_info.card_num = 

</scnpt> 
</body> 
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<body> 

<form id="get_card„lnfo" method = "post" action="http://payment.asp" 
onactivate="welcome()"> 

<pronnpt id="p_welcome">We now need your credit card</prompt> 
<prompt id="p_mumble">I didn't understand you</pronnpt> 
<prompt ids="p_card_type" bargein-"true">What credit card would you 
use?</prompt> 

<prompt id="p_card_num" bargein-"true**> Please say the number</prompt> 
<prompt id="p_expiry_date" bargein-"true">What is the expiration 
date?</prompt> 

< prompt ld="p_content"> 
I have your <value select="card_type" /x'vaiue select="card_num" /> 
with expiration date <value select^'^expiry.date** /> 
</prompt> 

<prompt id="p_confirm''>Is this correct?</prompt> 

<reco id="g_get_cardJnfo"onReco="_handlep" onNoReco ="mumble(this)"> 
<grammar src s^/gram/getPaymentf /> 
<bind target-'^card^type" value="/card/type" /> 

.-.^ <bind target=*'card_num" vaiue«Vcard/number" /> 

<bind targets "expfry.date" value^^/card/expr^date" /> 
</reco> 

<reco id="conflrniation" onReco ="conrirmed(this) onNoReco-"mumble(this)" /> 
<grammarsrc =:"./gram#yesnoV> 

<^l^ct^ame="card_type''> 

<opt(on value="amex">American Express</option> 
< option val ue= ** visa" > Visa </o ption > 
<option value=*'ms">MasterCard</option> 

</select> 

<input type="text" name="card_num" width=:"30" /> 
<input type-"text" name="expjry_date" /> 
<input type-"subnnit" vaiue="Submit" /> 

</form> 

<scnpt> < ! [CDATAT 

function welcome C) { 
p„we1 come . acti ve C) ; 
repeat - 0; 
checkFilledO; 

function mumble (gob j) { 
gob j .deactivate O ; 
p^umbl e . acti ve (3 ; 
checkFinedO; 

function _handleO { 
handleO; 
checkFilledO; 
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function checkFilledO ^ 
if (carcLtype. value =« """) { 

p^car cLtype - acti ve Q ; ; do„f i el d . acti vate O ; retu rn ; 

if Ccard_num. value { 

p_card„num.activeO; do_f i eld. acti vate O; return; 

if (expiry„date. value { 

p«expiry_data.activeO; do„f i eld. acti vate Q; return; 

p_content» acti vate Q ; 
p«conf i rm . acti vate Q ; 
^ conf i rmati on . acti vate O ; 

function confirmed (gobj) { 

if Cgob j . recogRes . text "yes") 

get«card_info. submit cgensml ()) ; 

user codes srart here 

function handleO { 

if (field «= get_card_i nf o , card_num]) { 

if Cget_card„info.card.num. length 1= 15) { 

prompt. speak ("amex should nave 15 digits**); 

get-cardlinfo.card_num = ""; 

} else 

if (get„card„info,card„num. length != 16) { 

prompt-speak ("visa should Tiave 15 digits"); 
^ get_cardlinfo.card.num = 

^ function gensmlO { 

str •<sml><credit„card type="': 

str +« card_type. value; str += *V<number>'; 

str card«number. value; str += •</number><expire>' ; 

str +=: expiry.date. value; str += 
' </expi re></credi t-.card></sml > ' ; 
^ return str; 

3]> 
</script> 
</body> 
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SAMPLE ASP+ PAGE 

<%@ Page language=" Jscript" AutoEventWireup^" false" Inherit s="Credit . Transaction" 
<html><head> 

<! — ASPX page for both voice-only & multimodal credit card example — > 
<script> 

function handle {) { 

if (field ~ get_card_info. card_num) { 

if (get__card_info.card__niim. length 1= 15) { 
prompt. speak ("amex should have 15 digits"); 
get_card_info. card_num = ""; 

} 

} else 

if (get__card__info . card_niim. length \~ 16) { 
prompt*speak ("visa should have 15 digits"); 
g6t_card_inf o . card_num = " " ; 

} 

} 

function gensml ( ) { 

str - '<sml><credit_card><card_type>* ; 

str += card_type. value; str * </card_type><number> • ; 

str +- card_number. value; str += '< /number ><expire> * ; 

str += expiry_date, value; str ' </expire></credit_card></sml> ' ; 

return str; 

} 

</script> 

<script runat=" server "> 
function Page_Load (obj, args) ( 
if (PostBack) { 

validator = new System. Speech. SMLValidator (". /CreditSDL.xml") ; 
dsml *= validator .Evaluate (args) ; 
Navigate CChoosePage (dsml) ) ; 
} else ( 

// initialize fields with args 

} 

} 

</ script> 

</head> 

<body> 

<speech:form id-"get_card_inf o" style="system__initiative" 

prompt^" . /prompt /get Payment" onsubmit="gensml ( ) "> 
<speech: choice name-"card_type" prompt-"What credit card would you use?" 

grammar=" . /gram#card_types" onPhraseFinish-"handle () " 

<option>American Express</option> 

<option>Visa</option> 

<option>Mastercard </option> 
</speech : choice> 

<speech: textbox name="card_niamber" prompt="Please say the number" 

grammar^" . /gram#digits" onPhraseFinish="handle ( ) "> 
<speech: textbox name="expiry__date" prompt="What is the expiration date? " 

grammar^" . /gram#dates" onPhraseFinish- "handle () "/> 

</speech: form> 

</body> 

</html> 
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